home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / Picticon1_4.lha / Picticon / Source / mod / bits.e next >
Text File  |  1995-06-07  |  383b  |  24 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC long2byte(long)
  5.     long:=(Shr(Shr(Shr(long AND $FF000000,8),8),8)) AND $FF
  6. ENDPROC long
  7. PROC byte2long(byte)
  8.     MOVE.L    byte,D0
  9.     AND.L        #$FF,D0
  10.     MOVE.L    D0,D1
  11.     LSL.L        #8,D1
  12.     OR.L        D1,D0
  13.     MOVE.L    D0,D1
  14.     SWAP        D1
  15.     OR.L        D1,D0
  16.     MOVE.L    D0,byte
  17. /*
  18.     byte:=(byte AND $FF)
  19.     byte:=Shl(byte,8) OR byte
  20.     byte:=Shl(byte,8) OR byte
  21.     byte:=Shl(byte,8) OR byte
  22. */
  23. ENDPROC byte
  24.